(mail-extract-address-components): Accept strings

that end with double trailing quote marks.

diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el
index 2d59aef47d8362bc78717af89bd6c1a6556af65f..27cc23f1df7ffa5c55799ec1889d8c8ba0263bba 100644 (file)
--- a/lisp/mail/mail-extr.el
+++ b/lisp/mail/mail-extr.el
@@ -1274,7 +1274,8 @@ If ADDRESS contains more than one RFC-822 address, only the first is
                   (backward-char 1)
                   (mail-extr-delete-char 1)
                   (goto-char quote-beg)
-                  (mail-extr-delete-char 1))
+                  (or (eobp)
+                      (mail-extr-delete-char 1)))
                 (mail-extr-undo-backslash-quoting quote-beg quote-end)
                 (or (eq ?\  (char-after (point)))
                     (insert " "))